home *** CD-ROM | disk | FTP | other *** search
Text File | 1997-11-01 | 80.6 KB | 2,308 lines |
- object Form1: TForm1
- Left = 12
- Top = 12
- Width = 553
- Height = 423
- Caption = 'CalendarWorks Demo'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- PixelsPerInch = 96
- OnShow = FormShow
- TextHeight = 13
- object TLabel
- Left = 24
- Top = 352
- Width = 291
- Height = 16
- Caption = 'Notice how all the controls interact with each other'
- Color = clBtnFace
- Font.Color = clBlue
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentColor = False
- ParentFont = False
- ParentShowHint = False
- ShowHint = False
- WordWrap = True
- end
- object TabbedNotebook1: TTabbedNotebook
- Left = 8
- Top = 8
- Width = 529
- Height = 385
- TabFont.Color = clBtnText
- TabFont.Height = -11
- TabFont.Name = 'MS Sans Serif'
- TabFont.Style = []
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- object TTabPage
- Left = 5
- Top = 45
- Caption = 'Properties'
- object CWDateLabel1: TCWDateLabel
- Left = 16
- Top = 16
- Width = 163
- Height = 19
- CWCalendar = CWCalendar1
- DateFormatStr = 'dddd, mmmm dd, yyyy'
- Font.Color = clRed
- Font.Height = -16
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Bevel1: TBevel
- Left = 352
- Top = 40
- Width = 153
- Height = 289
- Shape = bsFrame
- end
- object Label1: TLabel
- Left = 368
- Top = 130
- Width = 61
- Height = 13
- Caption = 'Date Positon'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label2: TLabel
- Left = 368
- Top = 170
- Width = 77
- Height = 13
- Caption = 'Day Title Format'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Bevel2: TBevel
- Left = 16
- Top = 248
- Width = 180
- Height = 81
- Shape = bsFrame
- end
- object Label3: TLabel
- Left = 24
- Top = 242
- Width = 80
- Height = 13
- Caption = ' Color Properties '
- end
- object Bevel3: TBevel
- Left = 200
- Top = 248
- Width = 66
- Height = 81
- Shape = bsFrame
- end
- object Label4: TLabel
- Left = 208
- Top = 242
- Width = 32
- Height = 13
- Caption = ' Fonts '
- end
- object Label5: TLabel
- Left = 368
- Top = 210
- Width = 71
- Height = 13
- Caption = 'Start Week On'
- end
- object Label6: TLabel
- Left = 368
- Top = 250
- Width = 69
- Height = 13
- Caption = 'Header Height'
- end
- object Label7: TLabel
- Left = 360
- Top = 34
- Width = 53
- Height = 13
- Caption = ' Properties '
- end
- object CWCalendar1: TCWCalendar
- Left = 16
- Top = 40
- Width = 333
- CellFont.Color = clBlack
- CellFont.Height = -11
- CellFont.Name = 'MS Sans Serif'
- CellFont.Style = []
- Ctl3D = True
- DateFont.Color = clWindowText
- DateFont.Height = -13
- DateFont.Name = 'System'
- DateFont.Style = []
- DayTitleFormat = OneLetter
- DayTitles.Strings = (
- 'Sunday'
- 'Monday'
- 'Tuesday'
- 'Wednesday'
- 'Thursday'
- 'Friday'
- 'Saturday')
- FocusMode = fmFramed
- HeaderColor = clSilver
- HeaderFont.Color = clWindowText
- HeaderFont.Height = -13
- HeaderFont.Name = 'System'
- HeaderFont.Style = []
- HiLight3D = hlNone
- SelectRange = False
- StartOfWeek = Sunday
- OnDateChange = CWCalendar1DateChange
- end
- object BitBtn1: TBitBtn
- Left = 24
- Top = 260
- Width = 49
- Height = 25
- Caption = 'Cell'
- TabOrder = 1
- OnClick = BitBtn1Click
- end
- object BitBtn2: TBitBtn
- Left = 80
- Top = 260
- Width = 49
- Height = 25
- Caption = 'Header'
- TabOrder = 2
- OnClick = BitBtn2Click
- end
- object BitBtn3: TBitBtn
- Left = 24
- Top = 292
- Width = 49
- Height = 25
- Caption = 'Grid'
- TabOrder = 3
- OnClick = BitBtn3Click
- end
- object BitBtn4: TBitBtn
- Left = 208
- Top = 260
- Width = 49
- Height = 25
- Caption = 'Header'
- TabOrder = 4
- OnClick = BitBtn4Click
- end
- object BitBtn5: TBitBtn
- Left = 208
- Top = 292
- Width = 49
- Height = 25
- Caption = 'Date'
- TabOrder = 5
- OnClick = BitBtn5Click
- end
- object BitBtn6: TBitBtn
- Left = 80
- Top = 292
- Width = 49
- Height = 25
- Caption = 'Hi-Lite'
- TabOrder = 6
- OnClick = BitBtn6Click
- end
- object CheckBox1: TCheckBox
- Left = 368
- Top = 56
- Width = 97
- Height = 17
- Caption = '3D Calendar'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- State = cbChecked
- TabOrder = 7
- OnClick = CheckBox1Click
- end
- object CheckBox2: TCheckBox
- Left = 368
- Top = 80
- Width = 97
- Height = 17
- Caption = 'Grid Lines'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- State = cbChecked
- TabOrder = 8
- OnClick = CheckBox2Click
- end
- object CheckBox3: TCheckBox
- Left = 368
- Top = 104
- Width = 121
- Height = 17
- Caption = 'Show Day Titles'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- State = cbChecked
- TabOrder = 9
- OnClick = CheckBox3Click
- end
- object ComboBox1: TComboBox
- Left = 368
- Top = 144
- Width = 121
- Height = 21
- Style = csDropDownList
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ItemHeight = 13
- Items.Strings = (
- 'Centered'
- 'Upper Left'
- 'Upper Right'
- 'Lower Left'
- 'Lower Right')
- ParentFont = False
- TabOrder = 10
- OnChange = ComboBox1Change
- end
- object ComboBox2: TComboBox
- Left = 368
- Top = 184
- Width = 121
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- Items.Strings = (
- 'One Letter'
- 'Two Letters'
- 'Three Letters'
- 'Full Name')
- TabOrder = 11
- OnChange = ComboBox2Change
- end
- object BitBtn7: TBitBtn
- Left = 136
- Top = 260
- Width = 49
- Height = 25
- Caption = 'Sunday'
- TabOrder = 12
- OnClick = BitBtn7Click
- end
- object BitBtn8: TBitBtn
- Left = 136
- Top = 292
- Width = 49
- Height = 25
- Caption = 'Today'
- TabOrder = 13
- OnClick = BitBtn8Click
- end
- object ComboBox3: TComboBox
- Left = 368
- Top = 224
- Width = 121
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- Items.Strings = (
- 'Sunday'
- 'Monday'
- 'Tuesday'
- 'Wednesday'
- 'Thursday'
- 'Friday'
- 'Saturday')
- TabOrder = 14
- OnChange = ComboBox3Change
- end
- object SpinEdit1: TSpinEdit
- Left = 368
- Top = 264
- Width = 41
- Height = 22
- Ctl3D = True
- MaxValue = 100
- MinValue = 1
- ParentCtl3D = False
- TabOrder = 15
- Value = 18
- OnChange = SpinEdit1Change
- end
- object GroupBox1: TGroupBox
- Left = 272
- Top = 243
- Width = 73
- Height = 86
- Caption = ' 3D Hi-Lite '
- TabOrder = 16
- object RadioButton1: TRadioButton
- Left = 8
- Top = 20
- Width = 60
- Height = 17
- Caption = 'Raised'
- TabOrder = 0
- OnClick = RadioButton1Click
- end
- object RadioButton2: TRadioButton
- Left = 8
- Top = 40
- Width = 60
- Height = 17
- Caption = 'Lowered'
- TabOrder = 1
- OnClick = RadioButton2Click
- end
- object RadioButton3: TRadioButton
- Left = 8
- Top = 60
- Width = 60
- Height = 17
- Caption = 'None'
- Checked = True
- TabOrder = 2
- TabStop = True
- OnClick = RadioButton3Click
- end
- end
- object BitBtn9: TBitBtn
- Left = 400
- Top = 8
- Width = 89
- Height = 25
- TabOrder = 17
- Kind = bkClose
- end
- object Memo1: TMemo
- Left = 368
- Top = 208
- Width = 121
- Height = 87
- Ctl3D = True
- Lines.Strings = (
- 'Sunday'
- 'Monday'
- 'Tuesday'
- 'Wednesday'
- 'Thursday'
- 'Friday'
- 'Saturday')
- ParentCtl3D = False
- TabOrder = 18
- Visible = False
- end
- object BitBtn10: TBitBtn
- Left = 368
- Top = 296
- Width = 121
- Height = 25
- Caption = 'Change Day Titles'
- TabOrder = 19
- OnClick = BitBtn10Click
- end
- end
- object TTabPage
- Left = 5
- Top = 45
- Caption = 'Controls'
- object CWDateLabel2: TCWDateLabel
- Left = 8
- Top = 10
- Width = 313
- Height = 25
- Hint = 'CWDateLabel format is fully customizeable.'
- Alignment = taCenter
- AutoSize = False
- CWCalendar = CWCalendar2
- DateFormatStr = 'mmmm yyyy'
- Font.Color = clRed
- Font.Height = -19
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Bevel4: TBevel
- Left = 8
- Top = 40
- Width = 313
- Height = 209
- Shape = bsFrame
- Style = bsRaised
- end
- object Bevel6: TBevel
- Left = 328
- Top = 40
- Width = 177
- Height = 281
- Shape = bsFrame
- end
- object CWDateLabel3: TCWDateLabel
- Left = 344
- Top = 56
- Width = 104
- Height = 13
- Hint = 'Another CWDateLablel format.'
- CWCalendar = CWCalendar2
- DateFormatStr = 'dddd, mmmm d,yyyy'
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- end
- object Label8: TLabel
- Left = 344
- Top = 75
- Width = 75
- Height = 11
- Caption = 'CWMonthCombo'
- Font.Color = clBlack
- Font.Height = -9
- Font.Name = 'Small Fonts'
- Font.Style = []
- ParentFont = False
- end
- object Label9: TLabel
- Left = 344
- Top = 115
- Width = 66
- Height = 11
- Caption = 'CWYearCombo'
- Font.Color = clBlack
- Font.Height = -9
- Font.Name = 'Small Fonts'
- Font.Style = []
- ParentFont = False
- end
- object Label10: TLabel
- Left = 344
- Top = 155
- Width = 51
- Height = 11
- Caption = 'CWDateEdit'
- Font.Color = clBlack
- Font.Height = -9
- Font.Name = 'Small Fonts'
- Font.Style = []
- ParentFont = False
- end
- object Label11: TLabel
- Left = 8
- Top = 296
- Width = 242
- Height = 13
- Caption = 'Notice how all the controls interact with each other.'
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label12: TLabel
- Left = 376
- Top = 200
- Width = 76
- Height = 13
- Caption = 'Day spin control'
- end
- object Label13: TLabel
- Left = 376
- Top = 232
- Width = 87
- Height = 13
- Caption = 'Month spin control'
- end
- object Label14: TLabel
- Left = 376
- Top = 264
- Width = 79
- Height = 13
- Caption = 'Year spin control'
- end
- object CWCalendar2: TCWCalendar
- Left = 16
- Top = 56
- Width = 294
- Height = 185
- Hint =
- 'Unique 3D Focus - Changes from raised to lowered depending on fo' +
- 'cus.'
- BlockColor = clBtnFace
- CellColor = clBtnFace
- CellFont.Color = clWindowText
- CellFont.Height = -13
- CellFont.Name = 'System'
- CellFont.Style = []
- Ctl3D = False
- DateFont.Color = clBlack
- DateFont.Height = -11
- DateFont.Name = 'MS Sans Serif'
- DateFont.Style = []
- DayTitleFormat = ThreeLetters
- DayTitles.Strings = (
- 'Sunday'
- 'Monday'
- 'Tuesday'
- 'Wednesday'
- 'Thursday'
- 'Friday'
- 'Saturday')
- FocusMode = fm3D
- GridColor = clBtnFace
- GridLines = False
- HeaderColor = clBtnFace
- HeaderFont.Color = clBlack
- HeaderFont.Height = -11
- HeaderFont.Name = 'MS Sans Serif'
- HeaderFont.Style = []
- HiLight3D = hlRaised
- HiLightColor = clSilver
- SelectRange = False
- StartOfWeek = Sunday
- SundayColor = clBlue
- ToDayColor = clRed
- OnDateChange = CWCalendar2DateChange
- object Bevel5: TBevel
- Left = 0
- Top = 18
- Width = 297
- Height = 2
- Shape = bsTopLine
- Style = bsRaised
- end
- end
- object CWNavBtn1: TCWNavBtn
- Left = 8
- Top = 256
- Width = 57
- Height = 33
- Hint = 'Previous Year - Hold to quickly move through years.'
- ButtonType = btPrevYear
- CWCalendar = CWCalendar2
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Glyph.Data = {
- 26050000424D260500000000000036040000280000000F0000000F0000000100
- 080000000000F000000000000000000000000000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
- A600000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303
- 0303030303030303030003030303030303030303030303030300030303030303
- 0303030303030303030003030303030300030303030300030300030303030300
- 0003030303000003030003030303000000030303000000030300030303000000
- 0003030000000003030003030000000000030000000000030300030303000000
- 0003030000000003030003030303000000030303000000030300030303030300
- 0003030303000003030003030303030300030303030300030300030303030303
- 0303030303030303030003030303030303030303030303030300030303030303
- 03030303030303030300}
- NumGlyphs = 1
- RepeatTimer = True
- Spacing = 4
- TabOrder = 1
- end
- object CWNavBtn2: TCWNavBtn
- Left = 72
- Top = 256
- Width = 57
- Height = 33
- Hint = 'Previous Month - Hold to quickly move through months.'
- ButtonType = btPrevMonth
- CWCalendar = CWCalendar2
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Glyph.Data = {
- 26050000424D260500000000000036040000280000000F0000000F0000000100
- 080000000000F000000000000000000000000000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
- A600000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303
- 0303030303030303030003030303030303030303030303030300030303030303
- 0303030303030303030003030303030303030003030303030300030303030303
- 0300000303030303030003030303030300000003030303030300030303030300
- 0000000303030303030003030303000000000003030303030300030303030300
- 0000000303030303030003030303030300000003030303030300030303030303
- 0300000303030303030003030303030303030003030303030300030303030303
- 0303030303030303030003030303030303030303030303030300030303030303
- 03030303030303030300}
- NumGlyphs = 1
- RepeatTimer = True
- Spacing = 4
- TabOrder = 2
- end
- object CWNavBtn3: TCWNavBtn
- Left = 136
- Top = 256
- Width = 57
- Height = 33
- Hint = 'Go back to today'#39's date.'
- ButtonType = btToday
- Caption = 'Today'
- CWCalendar = CWCalendar2
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- NumGlyphs = 1
- RepeatTimer = True
- Spacing = 4
- TabOrder = 3
- end
- object CWNavBtn4: TCWNavBtn
- Left = 200
- Top = 256
- Width = 57
- Height = 33
- Hint = 'Next Month - Hole to quickly move through months.'
- ButtonType = btNextMonth
- CWCalendar = CWCalendar2
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Glyph.Data = {
- 26050000424D260500000000000036040000280000000F0000000F0000000100
- 080000000000F000000000000000000000000000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
- A600000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303
- 0303030303030303030003030303030303030303030303030300030303030303
- 0303030303030303030003030303030003030303030303030300030303030300
- 0003030303030303030003030303030000000303030303030300030303030300
- 0000000303030303030003030303030000000000030303030300030303030300
- 0000000303030303030003030303030000000303030303030300030303030300
- 0003030303030303030003030303030003030303030303030300030303030303
- 0303030303030303030003030303030303030303030303030300030303030303
- 03030303030303030300}
- NumGlyphs = 1
- RepeatTimer = True
- Spacing = 4
- TabOrder = 4
- end
- object CWNavBtn5: TCWNavBtn
- Left = 264
- Top = 256
- Width = 57
- Height = 33
- Hint = 'Next Year - Hold to quickly move through years.'
- ButtonType = btNextYear
- CWCalendar = CWCalendar2
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Glyph.Data = {
- 26050000424D260500000000000036040000280000000F0000000F0000000100
- 080000000000F000000000000000000000000000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
- A600000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303
- 0303030303030303030003030303030303030303030303030300030303030303
- 0303030303030303030003030003030303030003030303030300030300000303
- 0303000003030303030003030000000303030000000303030300030300000000
- 0303000000000303030003030000000000030000000000030300030300000000
- 0303000000000303030003030000000303030000000303030300030300000303
- 0303000003030303030003030003030303030003030303030300030303030303
- 0303030303030303030003030303030303030303030303030300030303030303
- 03030303030303030300}
- NumGlyphs = 1
- ParentShowHint = False
- RepeatTimer = True
- ShowHint = True
- Spacing = 4
- TabOrder = 5
- end
- object CWMonthCombo1: TCWMonthCombo
- Left = 344
- Top = 88
- Width = 145
- Height = 21
- Hint =
- 'Use CWMonthCombo to change months quickly. Can support any langu' +
- 'age.'
- CWCalendar = CWCalendar2
- Language = English
- ParentShowHint = False
- ShowHint = True
- TabOrder = 6
- end
- object CWYearCombo1: TCWYearCombo
- Left = 344
- Top = 128
- Width = 145
- Height = 21
- Hint = 'Use CWYearCombo to quickly change years.'
- CWCalendar = CWCalendar2
- ParentShowHint = False
- ShowHint = True
- TabOrder = 7
- end
- object BitBtn11: TBitBtn
- Left = 400
- Top = 8
- Width = 89
- Height = 25
- TabOrder = 8
- Kind = bkClose
- end
- object CWDateEdit1: TCWDateEdit
- Left = 344
- Top = 168
- Width = 113
- Height = 20
- Hint = 'Use CWDateEdit to edit or spin dates.'
- CWCalendar = CWCalendar2
- DateFormatStr = 'mm/dd/yyyy'
- DateToShow = '11/01/1997'
- TabOrder = 9
- end
- object CWDateSpin1: TCWDateSpin
- Left = 344
- Top = 200
- Width = 20
- Height = 25
- Hint = 'Use this control to quickly change days.'
- CalendarLink = clDay
- CWCalendar = CWCalendar2
- DownGlyph.Data = {
- 7E040000424D7E04000000000000360400002800000009000000060000000100
- 0800000000004800000000000000000000000000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
- A600000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303
- 0303030000000303030300030303030000000303030000000303030000000303
- 0000000000030300000003000000000000000300000003030303030303030300
- 0000}
- TabOrder = 10
- UpGlyph.Data = {
- 7E040000424D7E04000000000000360400002800000009000000060000000100
- 0800000000004800000000000000000000000000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
- A600000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303
- 0303030000000300000000000000030000000303000000000003030000000303
- 0300000003030300000003030303000303030300000003030303030303030300
- 0000}
- end
- object CWDateSpin2: TCWDateSpin
- Left = 344
- Top = 232
- Width = 20
- Height = 25
- Hint = 'Use this control to quickly chnage months.'
- CalendarLink = clMonth
- CWCalendar = CWCalendar2
- DownGlyph.Data = {
- 7E040000424D7E04000000000000360400002800000009000000060000000100
- 0800000000004800000000000000000000000000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
- A600000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303
- 0303030000000303030300030303030000000303030000000303030000000303
- 0000000000030300000003000000000000000300000003030303030303030300
- 0000}
- TabOrder = 11
- UpGlyph.Data = {
- 7E040000424D7E04000000000000360400002800000009000000060000000100
- 0800000000004800000000000000000000000000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
- A600000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303
- 0303030000000300000000000000030000000303000000000003030000000303
- 0300000003030300000003030303000303030300000003030303030303030300
- 0000}
- end
- object CWDateSpin3: TCWDateSpin
- Left = 344
- Top = 264
- Width = 20
- Height = 25
- Hint = 'Use this control to quickly change years.'
- CalendarLink = clYear
- CWCalendar = CWCalendar2
- DownGlyph.Data = {
- 7E040000424D7E04000000000000360400002800000009000000060000000100
- 0800000000004800000000000000000000000000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
- A600000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303
- 0303030000000303030300030303030000000303030000000303030000000303
- 0000000000030300000003000000000000000300000003030303030303030300
- 0000}
- TabOrder = 12
- UpGlyph.Data = {
- 7E040000424D7E04000000000000360400002800000009000000060000000100
- 0800000000004800000000000000000000000000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
- A600000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303
- 0303030000000300000000000000030000000303000000000003030000000303
- 0300000003030300000003030303000303030300000003030303030303030300
- 0000}
- end
- object CWArrowBtn1: TCWArrowBtn
- Left = 344
- Top = 296
- Width = 25
- Height = 16
- Hint = 'Previous Year'
- ButtonType = btPrevYear
- CWCalendar = CWCalendar2
- Direction = dLeft
- RepeatTimer = True
- end
- object CWArrowBtn2: TCWArrowBtn
- Left = 376
- Top = 296
- Width = 16
- Height = 16
- Hint = 'Previous Month'
- ButtonType = btPrevMonth
- CWCalendar = CWCalendar2
- Direction = dLeft
- RepeatTimer = True
- end
- object CWArrowBtn3: TCWArrowBtn
- Left = 400
- Top = 296
- Width = 16
- Height = 16
- Hint = 'Previous Day'
- ButtonType = btPrevDay
- CWCalendar = CWCalendar2
- Direction = dLeft
- RepeatTimer = True
- end
- object CWArrowBtn4: TCWArrowBtn
- Left = 416
- Top = 296
- Width = 16
- Height = 16
- Hint = 'Next Day'
- ButtonType = btNextDay
- CWCalendar = CWCalendar2
- Direction = dRight
- RepeatTimer = True
- end
- object CWArrowBtn5: TCWArrowBtn
- Left = 440
- Top = 296
- Width = 16
- Height = 16
- Hint = 'Next Month'
- ButtonType = btNextMonth
- CWCalendar = CWCalendar2
- Direction = dRight
- RepeatTimer = True
- end
- object CWArrowBtn6: TCWArrowBtn
- Left = 464
- Top = 296
- Width = 24
- Height = 16
- Hint = 'Next Year'
- ButtonType = btNextYear
- CWCalendar = CWCalendar2
- Direction = dRight
- RepeatTimer = True
- end
- end
- object TTabPage
- Left = 5
- Top = 45
- Caption = 'Drag '#39'n Drop'
- object CWDateLabel4: TCWDateLabel
- Left = 32
- Top = 12
- Width = 119
- Height = 27
- CWCalendar = CWCalendar3
- DateFormatStr = 'mmmm yyyy'
- Font.Color = clRed
- Font.Height = -24
- Font.Name = 'MS Serif'
- Font.Style = [fsBold, fsItalic]
- ParentFont = False
- end
- object Bevel7: TBevel
- Left = 410
- Top = 40
- Width = 89
- Height = 237
- Shape = bsFrame
- end
- object Label15: TLabel
- Left = 144
- Top = 288
- Width = 95
- Height = 13
- Caption = 'Drag and drop items'
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label16: TLabel
- Left = 144
- Top = 304
- Width = 118
- Height = 13
- Caption = 'to and from the calendar!'
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object CWCalendar3: TCWCalendar
- Left = 16
- Top = 40
- Width = 393
- Height = 241
- Hint = 'Up to six lines of text may appear in each cell.'
- BlockColor = clAqua
- CellColor = clAqua
- CellFont.Color = clBlack
- CellFont.Height = -8
- CellFont.Name = 'Small Fonts'
- CellFont.Style = []
- Ctl3D = False
- DateFont.Color = clBlack
- DateFont.Height = -9
- DateFont.Name = 'Small Fonts'
- DateFont.Style = [fsBold]
- DatePosition = UpperLeft
- DayTitleFormat = ThreeLetters
- DayTitles.Strings = (
- 'Sunday'
- 'Monday'
- 'Tuesday'
- 'Wednesday'
- 'Thursday'
- 'Friday'
- 'Saturday')
- FocusColor = clRed
- FocusMode = fmFramed
- HeaderColor = clSilver
- HeaderFont.Color = clBlack
- HeaderFont.Height = -11
- HeaderFont.Name = 'MS Sans Serif'
- HeaderFont.Style = []
- HiLight3D = hlNone
- HiLightColor = clSilver
- SelectRange = False
- StartOfWeek = Sunday
- OnDateChange = CWCalendar3DateChange
- OnDragDrop = CWCalendar3DragDrop
- OnDragOver = CWCalendar3DragOver
- OnMouseDown = CWCalendar3MouseDown
- OnUpdate = CWCalendar3Update
- end
- object ListBox1: TListBox
- Left = 418
- Top = 200
- Width = 73
- Height = 67
- Hint = 'You can drag text to the calendar.'
- DragMode = dmAutomatic
- ExtendedSelect = False
- IntegralHeight = True
- ItemHeight = 13
- Items.Strings = (
- 'Call Harry'
- 'Lunch Date'
- 'Dry Cleaning'
- 'Meeting')
- TabOrder = 1
- end
- object ListBox2: TListBox
- Left = 418
- Top = 48
- Width = 73
- Height = 145
- Hint = 'You can drag one of these pre-defined bitmaps to the calendar.'
- Ctl3D = True
- DragMode = dmAutomatic
- ExtendedSelect = False
- IntegralHeight = True
- ItemHeight = 13
- Items.Strings = (
- 'Alarm Clock'
- 'Light Bulb'
- 'Check Mark'
- 'Globe'
- 'Library'
- 'Mailbox'
- 'Night'
- 'Pencil'
- 'Phone'
- 'Todo')
- ParentCtl3D = False
- TabOrder = 2
- end
- object CWNavBtn6: TCWNavBtn
- Left = 24
- Top = 282
- Width = 41
- Height = 25
- Hint = 'Previous Month'
- ButtonType = btPrevMonth
- CWCalendar = CWCalendar3
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Glyph.Data = {
- 26050000424D260500000000000036040000280000000F0000000F0000000100
- 080000000000F000000000000000000000000000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
- A600000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303
- 0303030303030303030003030303030303030303030303030300030303030303
- 0303030303030303030003030303030303030003030303030300030303030303
- 0300000303030303030003030303030300000003030303030300030303030300
- 0000000303030303030003030303000000000003030303030300030303030300
- 0000000303030303030003030303030300000003030303030300030303030303
- 0300000303030303030003030303030303030003030303030300030303030303
- 0303030303030303030003030303030303030303030303030300030303030303
- 03030303030303030300}
- NumGlyphs = 1
- RepeatTimer = True
- Spacing = 4
- TabOrder = 3
- end
- object CWNavBtn7: TCWNavBtn
- Left = 80
- Top = 282
- Width = 41
- Height = 25
- Hint = 'Next Month'
- ButtonType = btNextMonth
- CWCalendar = CWCalendar3
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Glyph.Data = {
- 26050000424D260500000000000036040000280000000F0000000F0000000100
- 080000000000F000000000000000000000000000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
- A600000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303
- 0303030303030303030003030303030303030303030303030300030303030303
- 0303030303030303030003030303030003030303030303030300030303030300
- 0003030303030303030003030303030000000303030303030300030303030300
- 0000000303030303030003030303030000000000030303030300030303030300
- 0000000303030303030003030303030000000303030303030300030303030300
- 0003030303030303030003030303030003030303030303030300030303030303
- 0303030303030303030003030303030303030303030303030300030303030303
- 03030303030303030300}
- NumGlyphs = 1
- RepeatTimer = True
- Spacing = 4
- TabOrder = 4
- end
- object Edit1: TEdit
- Left = 280
- Top = 282
- Width = 121
- Height = 20
- Hint = 'If Drag Date is checked, you can drag a calendar date here!'
- TabOrder = 5
- Text = 'Drag date here!'
- OnDragDrop = Edit1DragDrop
- OnDragOver = Edit1DragOver
- end
- object CheckBox4: TCheckBox
- Left = 280
- Top = 304
- Width = 81
- Height = 17
- Caption = 'Drag Date'
- TabOrder = 6
- OnClick = CheckBox4Click
- end
- object BitBtn12: TBitBtn
- Left = 400
- Top = 8
- Width = 89
- Height = 25
- TabOrder = 7
- Kind = bkClose
- end
- end
- object TTabPage
- Left = 5
- Top = 45
- Caption = 'Select Range'
- object Label17: TLabel
- Left = 45
- Top = 48
- Width = 19
- Height = 13
- Caption = 'Sun'
- end
- object Label18: TLabel
- Left = 85
- Top = 48
- Width = 21
- Height = 13
- Caption = 'Mon'
- end
- object Label19: TLabel
- Left = 128
- Top = 48
- Width = 19
- Height = 13
- Caption = 'Tue'
- end
- object Label20: TLabel
- Left = 168
- Top = 48
- Width = 23
- Height = 13
- Caption = 'Wed'
- end
- object Label21: TLabel
- Left = 212
- Top = 48
- Width = 19
- Height = 13
- Caption = 'Thu'
- end
- object Label22: TLabel
- Left = 258
- Top = 48
- Width = 11
- Height = 13
- Caption = 'Fri'
- end
- object Label23: TLabel
- Left = 298
- Top = 48
- Width = 16
- Height = 13
- Caption = 'Sat'
- end
- object Shape1: TShape
- Left = 32
- Top = 64
- Width = 297
- Height = 20
- Brush.Color = clTeal
- Pen.Color = clTeal
- end
- object Bevel8: TBevel
- Left = 24
- Top = 40
- Width = 313
- Height = 257
- Style = bsRaised
- end
- object CWDateLabel5: TCWDateLabel
- Left = 40
- Top = 64
- Width = 281
- Height = 19
- Alignment = taCenter
- AutoSize = False
- Color = clTeal
- CWCalendar = CWCalendar4
- DateFormatStr = 'mmmm d, yyyy'
- Font.Color = clSilver
- Font.Height = -16
- Font.Name = 'Times New Roman'
- Font.Style = [fsBold]
- ParentColor = False
- ParentFont = False
- end
- object Label24: TLabel
- Left = 352
- Top = 48
- Width = 23
- Height = 13
- Caption = 'From'
- end
- object Label25: TLabel
- Left = 352
- Top = 104
- Width = 13
- Height = 13
- Caption = 'To'
- end
- object Label26: TLabel
- Left = 368
- Top = 70
- Width = 105
- Height = 13
- AutoSize = False
- Color = clSilver
- ParentColor = False
- end
- object Label27: TLabel
- Left = 368
- Top = 126
- Width = 105
- Height = 13
- AutoSize = False
- Color = clSilver
- ParentColor = False
- end
- object Bevel9: TBevel
- Left = 352
- Top = 64
- Width = 137
- Height = 25
- Shape = bsFrame
- end
- object Bevel10: TBevel
- Left = 352
- Top = 120
- Width = 137
- Height = 25
- Shape = bsFrame
- end
- object BitBtn13: TBitBtn
- Left = 400
- Top = 8
- Width = 89
- Height = 25
- TabOrder = 0
- Kind = bkClose
- end
- object CWCalendar4: TCWCalendar
- Left = 32
- Top = 88
- Width = 297
- Height = 177
- BlockColor = clBtnFace
- CellColor = clBtnFace
- CellFont.Color = clWindowText
- CellFont.Height = -13
- CellFont.Name = 'System'
- CellFont.Style = []
- Ctl3D = False
- DateFont.Color = clBlack
- DateFont.Height = -13
- DateFont.Name = 'MS Sans Serif'
- DateFont.Style = []
- DayTitleFormat = OneLetter
- DayTitles.Strings = (
- 'Sunday'
- 'Monday'
- 'Tuesday'
- 'Wednesday'
- 'Thursday'
- 'Friday'
- 'Saturday')
- FocusColor = clYellow
- FocusMode = fmFramed
- GridColor = clTeal
- GridLines = False
- HeaderColor = clSilver
- HeaderFont.Color = clWindowText
- HeaderFont.Height = -13
- HeaderFont.Name = 'System'
- HeaderFont.Style = []
- HiLight3D = hlNone
- HiLightColor = clTeal
- SelectRange = True
- ShowDayTitles = False
- StartOfWeek = Sunday
- OnDateChange = CWCalendar4DateChange
- OnKeyUp = CWCalendar4KeyUp
- OnMouseUp = CWCalendar4MouseUp
- OnRangeChange = CWCalendar4RangeChange
- end
- object CWArrowBtn7: TCWArrowBtn
- Left = 56
- Top = 272
- Width = 33
- Height = 16
- Hint = 'Previous Year'
- ButtonType = btPrevYear
- CWCalendar = CWCalendar4
- Direction = dLeft
- RepeatTimer = True
- end
- object CWArrowBtn8: TCWArrowBtn
- Left = 112
- Top = 272
- Width = 16
- Height = 16
- Hint = 'Previous Month'
- ButtonType = btPrevMonth
- CWCalendar = CWCalendar4
- Direction = dLeft
- RepeatTimer = True
- end
- object CWArrowBtn9: TCWArrowBtn
- Left = 272
- Top = 272
- Width = 32
- Height = 16
- Hint = 'Next Year'
- ButtonType = btNextYear
- CWCalendar = CWCalendar4
- Direction = dRight
- RepeatTimer = True
- OnClick = CWArrowBtn9Click
- end
- object CWArrowBtn10: TCWArrowBtn
- Left = 232
- Top = 272
- Width = 16
- Height = 16
- Hint = 'Next Month'
- ButtonType = btNextMonth
- CWCalendar = CWCalendar4
- Direction = dRight
- RepeatTimer = True
- OnClick = CWArrowBtn10Click
- end
- object Memo2: TMemo
- Left = 352
- Top = 168
- Width = 145
- Height = 137
- BorderStyle = bsNone
- Color = clBtnFace
- Ctl3D = False
- Enabled = False
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Lines.Strings = (
- 'The CalendarWorks calendar '
- 'is capable of selecting date '
- 'ranges. Simply select a date '
- 'and drag. Dragging off the '
- 'calendar moves to another'
- 'month.'
- ''
- 'Range selection is also '
- 'possible using a combination '
- 'of Shift key and arrow keys.')
- ParentCtl3D = False
- ParentFont = False
- TabOrder = 6
- end
- end
- object TTabPage
- Left = 5
- Top = 45
- Caption = 'Other'
- object Bevel11: TBevel
- Left = 16
- Top = 40
- Width = 479
- Height = 273
- Shape = bsFrame
- Style = bsRaised
- end
- object Label28: TLabel
- Left = 40
- Top = 64
- Width = 73
- Height = 13
- Caption = 'Quick Calendar'
- end
- object Label29: TLabel
- Left = 144
- Top = 64
- Width = 99
- Height = 13
- Caption = 'Drop Down Calendar'
- end
- object Label30: TLabel
- Left = 264
- Top = 64
- Width = 65
- Height = 13
- Caption = 'Day Number :'
- end
- object Label31: TLabel
- Left = 264
- Top = 88
- Width = 119
- Height = 13
- Caption = 'Days Remaining in Year :'
- end
- object Label32: TLabel
- Left = 264
- Top = 112
- Width = 127
- Height = 13
- Caption = 'Days Remaining in Month :'
- end
- object Label33: TLabel
- Left = 264
- Top = 136
- Width = 66
- Height = 13
- Caption = 'Days in Year :'
- end
- object Label34: TLabel
- Left = 264
- Top = 160
- Width = 74
- Height = 13
- Caption = 'Days in Month :'
- end
- object Label35: TLabel
- Left = 264
- Top = 184
- Width = 130
- Height = 13
- Caption = 'Days Since Previous Date :'
- end
- object Label36: TLabel
- Left = 264
- Top = 208
- Width = 70
- Height = 13
- Caption = 'First of Month :'
- end
- object Label37: TLabel
- Left = 264
- Top = 232
- Width = 52
- Height = 13
- Caption = 'Weekday :'
- end
- object Label38: TLabel
- Left = 264
- Top = 256
- Width = 75
- Height = 13
- Caption = 'Week Number :'
- end
- object Label39: TLabel
- Left = 264
- Top = 280
- Width = 55
- Height = 13
- Caption = 'Leap Year :'
- end
- object Label40: TLabel
- Left = 408
- Top = 64
- Width = 38
- Height = 13
- Caption = 'Label40'
- end
- object Label41: TLabel
- Left = 408
- Top = 88
- Width = 38
- Height = 13
- Caption = 'Label41'
- end
- object Label42: TLabel
- Left = 408
- Top = 112
- Width = 38
- Height = 13
- Caption = 'Label42'
- end
- object Label43: TLabel
- Left = 408
- Top = 136
- Width = 38
- Height = 13
- Caption = 'Label43'
- end
- object Label44: TLabel
- Left = 408
- Top = 160
- Width = 38
- Height = 13
- Caption = 'Label44'
- end
- object Label45: TLabel
- Left = 408
- Top = 184
- Width = 38
- Height = 13
- Caption = 'Label45'
- end
- object Label46: TLabel
- Left = 408
- Top = 208
- Width = 38
- Height = 13
- Caption = 'Label46'
- end
- object Label47: TLabel
- Left = 408
- Top = 232
- Width = 38
- Height = 13
- Caption = 'Label47'
- end
- object Label48: TLabel
- Left = 408
- Top = 256
- Width = 38
- Height = 13
- Caption = 'Label48'
- end
- object Label49: TLabel
- Left = 408
- Top = 280
- Width = 38
- Height = 13
- Caption = 'Label49'
- end
- object Label50: TLabel
- Left = 40
- Top = 12
- Width = 210
- Height = 24
- Caption = 'Calendars and Functions'
- Font.Color = clBlue
- Font.Height = -19
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object CWDropDownEdit1: TCWDropDownEdit
- Left = 144
- Top = 80
- Width = 97
- Height = 24
- AutoSize = False
- Ctl3D = True
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'System'
- Font.Style = [fsBold]
- ParentCtl3D = False
- ParentFont = False
- TabOrder = 1
- Text = '11/01/97'
- OnChange = CWDropDownEdit1Change
- ButtonWidth = 15
- DateFormatStr = 'mm/dd/yy'
- Glyph.Data = {
- 7E040000424D7E04000000000000360400002800000009000000060000000100
- 0800000000004800000000000000000000000000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000C0DCC000F0CA
- A600000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 000000000000000000000000000000000000F0FBFF00A4A0A000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00030303030303
- 0303030000000303030300030303030000000303030000000303030000000303
- 0000000000030300000003000000000000000300000003030303030303030300
- 0000}
- NumGlyphs = 1
- end
- object BitBtn14: TBitBtn
- Left = 400
- Top = 8
- Width = 89
- Height = 25
- TabOrder = 0
- Kind = bkClose
- end
- object Button1: TButton
- Left = 40
- Top = 80
- Width = 81
- Height = 25
- Caption = 'Press Here'
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 2
- OnClick = Button1Click
- end
- object Memo3: TMemo
- Left = 40
- Top = 120
- Width = 201
- Height = 185
- BorderStyle = bsNone
- Color = clBtnFace
- Ctl3D = False
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Lines.Strings = (
- 'CalendarWorks provides two useful, '
- 'predefined calendar components - the '
- 'instant, QuickCalendar and the '
- 'DropDownEdit Calendar components. In '
- 'addition to these two components, '
- 'CalendarWorks provides the developer '
- 'with a number of useful functions for'
- 'calculating date information.'
- ''
- 'To see these functions in action, select a '
- 'date from the DropDownEdit component '
- 'above. When a date is selected, the '
- 'functions at left will display the indicated '
- 'information.')
- ParentCtl3D = False
- ParentFont = False
- ReadOnly = True
- TabOrder = 3
- end
- end
- object TTabPage
- Left = 5
- Top = 45
- Caption = 'Registration'
- object Label51: TLabel
- Left = 32
- Top = 16
- Width = 317
- Height = 21
- Caption = 'Registering Your Copy of CalendarWorks'
- Font.Color = clRed
- Font.Height = -19
- Font.Name = 'MS Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label52: TLabel
- Left = 304
- Top = 288
- Width = 118
- Height = 27
- Caption = 'Only $34.95'
- Font.Color = clRed
- Font.Height = -24
- Font.Name = 'MS Serif'
- Font.Style = []
- ParentFont = False
- end
- object Bevel12: TBevel
- Left = 16
- Top = 40
- Width = 481
- Height = 241
- Shape = bsFrame
- end
- object BitBtn15: TBitBtn
- Left = 400
- Top = 8
- Width = 89
- Height = 25
- TabOrder = 1
- Kind = bkClose
- end
- object Button2: TButton
- Left = 56
- Top = 288
- Width = 177
- Height = 25
- Caption = 'Registering with a Credit Card'
- TabOrder = 2
- OnClick = Button2Click
- end
- object Memo5: TMemo
- Left = 24
- Top = 56
- Width = 457
- Height = 97
- BorderStyle = bsNone
- Color = clBtnFace
- Ctl3D = False
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Lines.Strings = (
-
- 'To register by MasterCard, Visa, American Express, or Discover, ' +
- 'call the Public (software) '
-
- 'Library at 1-800-2424-PsL or 713-524-6394 or send your order by ' +
- 'FAX to 1-713-524-6398 '
-
- 'or by CompuServe E-Mail to 71355,470 or Internet mail to 71355.4' +
- '70@compuserve.com. '
-
- 'You can also mail credit card orders to PsL at P.O. Box 35705, H' +
- 'ouston, TX 77235-5705. '
- ''
-
- 'When registering please specify the product, CalendarWorks, pro' +
- 'duct # 14629, and 16 or 32 '
- 'bit version.'
- ''
- '')
- ParentCtl3D = False
- ParentFont = False
- TabOrder = 3
- end
- object Memo6: TMemo
- Left = 24
- Top = 152
- Width = 457
- Height = 57
- BorderStyle = bsNone
- Color = clBtnFace
- Ctl3D = False
- Font.Color = clRed
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- Lines.Strings = (
- 'HSoftWare cannot be reached at the numbers above.'
-
- 'These numbers are for PsL, a credit care order taking service ON' +
- 'LY!'
-
- 'Please be sure to include your credit card number and expiration' +
- ' date on all '
- 'credit card orders.')
- ParentCtl3D = False
- ParentFont = False
- TabOrder = 4
- end
- object Memo7: TMemo
- Left = 24
- Top = 208
- Width = 457
- Height = 65
- BorderStyle = bsNone
- Color = clBtnFace
- Ctl3D = False
- Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Lines.Strings = (
- ''
-
- 'Any questions about the status of the shipment or an order, refu' +
- 'nds, registration options, '
-
- 'product details, technical support, volume discounts, dealer pri' +
- 'cing, site licenses, etc., must be '
-
- 'directed to HSoftWare, 45 Milfoil Crescent, Kitchener, Ontario ' +
- 'N2E 3L2, or '
- 'by e-mail at hsw@sympatico.ca on the Internet.')
- ParentCtl3D = False
- ParentFont = False
- TabOrder = 5
- end
- object Memo4: TMemo
- Left = 24
- Top = 48
- Width = 465
- Height = 225
- Lines.Strings = (
-
- 'This demo version of CalendarWorks comes with the fully function' +
- 'al Basic Calendar '
-
- 'component. To obtain the other components, including the highly ' +
- 'powerful, full featured '
-
- 'CalendarWorks Calendar, you must download cworks16.zip or cworks' +
- '32.zip.'
- ''
-
- 'CalendarWorks is fully functional and free, however, you can reg' +
- 'ister your version. With'
- 'registration you will obtain the full source code.'
- ''
-
- 'If registering by mail, please send $34.95 in US funds to HSoftW' +
- 'are. Within the US or '
-
- 'Canada include $3.00US for shipping and handling. If ordering fr' +
- 'om outside the US and '
-
- 'Canada, include $5.00US for shipping and handling. You can save ' +
- 'yourself the shipping and '
-
- 'handling charge if you request the registered version sent via e' +
- '-mail to a Compuserve or '
-
- 'Internet address. When ordering within Canada, add GST and when ' +
- 'ordering within Ontario '
- 'add GST and PST.'
- ''
- 'Please send cheque or money order to:'
- ''
- 'HSoftWare'
- 'Howard Walsh'
- '45 Milfoil Crescent'
- 'Kitchener, Ontario N2E 3L2'
- ''
-
- 'Credit card registration is accepted through PsL. Click on '#39'Regi' +
- 'stering with a Credit Card'#39' below'
-
- 'for more information on placing credit cards orders. PsL is a cr' +
- 'edit card processing service '
-
- 'only. HSoftWare / Technical Support CAN NOT be reached through t' +
- 'his service.'
- ''
-
- 'With the registered version you will receive the full source cod' +
- 'e. This code may be altered by '
-
- 'you as you wish to make CalendarWorks function to your personal ' +
- 'needs. There are no '
-
- 'run-time royalties when using CalendarWorks, however, you cannot' +
- ' resell CalendarWorks as '
-
- 'your own, altered or unaltered in component or other non-executa' +
- 'ble form.'
- ''
-
- 'Please report any problems you are having so that I may improve ' +
- 'CalendarWorks. Also, if you '
-
- 'have an idea to make CalendarWorks better, please let me know. I' +
- ' can be reached at '
- 'hsw@sympatico.ca on the internet.')
- ScrollBars = ssVertical
- TabOrder = 0
- end
- end
- end
- object ColorDialog1: TColorDialog
- Ctl3D = True
- Left = 461
- Top = 347
- end
- object FontDialog1: TFontDialog
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'System'
- Font.Style = []
- MinFontSize = 6
- MaxFontSize = 24
- Left = 493
- Top = 346
- end
- object CWQuickCalendar1: TCWQuickCalendar
- CalendarCaption = 'QuickCalendar'
- CalendarLeft = 300
- CalendarTop = 125
- DisplayDate = '5/9/96'
- Left = 37
- Top = 333
- end
- end
-